
(server-host-name)			; => "127.0.0.1"

(server-local?)				; => #t

(server-boot)				; ERROR

(server-connect)			; ERROR

(server-disconnect)			;

(server-connect)			; 

(server-shutdown)

(server-connected?)

(osc-responder-register
 "status.reply" 
 (lambda (message) 
   (inform "Recv" message)))

(-> "/dumpOSC" 3)

(-> "/status")

(=>* 1.5 (list "/status"))

(-> "/unknown_command")

(server-notify #t)

(server-free-all)

(server-buffer-id)

(node-id)

(node-id 'previous)

;; Test remote server operation.  The latency has to incoroporate
;; whatever clock drift is present.

(begin
  (current-server (make-server (resolve-network-address "192.0.0.1" 57110) 
			       (server-options-defaults)))
  (server-connect)
  (set-server-latency! 91.75)
  (server-notify #t))
